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MISCELLANEOUS NOTES 

Thi 3 is the #1 newsletter of The Sorcerer User's Group. Issue 
#2 will appear if this issue generates enough interest. I have 
a lot of interest in printing this paper; I feel it is necessary 
to communicate with other Sorcerer users and find out what they 
are doing. 

This is not a very big issue. The Sorcerer's Apprentice will 
continue to grow only with your support. Please send in programs, 
hardware designs, or whatever. I will print virtually anything. 
Communication of ideas is the object here. If you have a program 
to send, I would prefer a listing and a cassette if possible. 
Copying programs from the screen of my TV is very error prone, as 
I have found out. Cassettes can be returned only if sufficient 
postage is included. Nobody can be paid for any material sub¬ 
mitted; this is a non-profit organization. I am in it only for 
fun. Computing is still just a hobby for me. 

A little about myself. I am David (Dave) Bristor. I am a 
junior in computer engineering at the University of Michigan in 
Ann Arbor, Michigan. My system consists of a 16K Sorcerer, a 
Panasonic tape recorder, a Pixie-Verter, and a Sony TV. I would 
like to see material printed on these pages that would run on any 
system, not just the double-disk, line printer jobs. On the other 
hand, I would be delighted to print a complete operating system 
that allows the Sorcerer to be used as an intelligent terminal. 

As I said earlier - I will print virtually anything. 

Does anyone out there have a printer available? I would like 
to be able to type the Apprentice onto a cassette, send it to some¬ 
one with a printer, and get back the cassette and a listing that 
could be taken to the printers. Typewriters and I don't get along 
very well. A printer would also be convenient for obtaining lis¬ 
tings for the Apprentice. w 

I have seen a rough draft of the Sorcerer Technical Manual. It 
has a memory map, a parts list, some info on the USE function, and 
some other goodies. I don't yet know when this valuable document 
will be available, but I'll let you know. Additionally, I've put 
some information on USB in this issue; see the program description. 

I am sending copies of this issue, along with letters of expla¬ 
nation, to various companies in the industry that are somehow 
connected with the Sorcerer. Hopefully this will allow me to clue 
you in on new Sorcerer related products as soon as they become- a*' 
vailable. If any of you are planning to market something for thi' 
Sorcerer, let me know by sending a short description and I'll let 
people know through this column. Major magazines are"also receiving 
copies; through them we should be able to add to our ranks* 
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Contributed by Dare Bristor 
Listing on last page 

V^Tblb program is not rery impressire as it stands. But with 
a'Jitti# creativity on the part of the user, parts of it can be- 
qbis*I£TOortant subroutines in larger programs. In addition, it 
explains some techniques useful in any program. The program is 
fairly well documented, but I'd like to explain some of the me- 
tbo&s-'used. 

Ma^v of you hare probably heard of structured programming; 
possibly you hare heard also that structured programming is not 
possible with BASIC. While there is some degree of truth to 
th ( l?f ‘the readability of BASIC programs can be improred by using 
the Statement separator, a colon (:), to indent lines of code. 
This 15 is especially useful in F0R-N3XT loops, where the body of 
the loop is indented to separate it from the rest of the program. 
Subroutines can also be indented one or two spaces to aid in 
their identification in listings. Indentation can be rery handy 
when listing long programs, and it may help others in reading 
your code also. 

All this program does is move a dot (graphic-5) around the 
screen. This could be done with a PRINT statement, but instead 
I chose the fancier route of employing the USR function along 
with a machine language subroutine. I learned a lot from this 
that I'd like to pass on. 

The USR function has the form: 80 A«USR(0). The variable A 
is a dummy variable; it should not be used "elsewhere in the pro¬ 
gram. Any variable may be used, A is just for the purposes of 
this example. When executed, the statement causes a CALL to 
the machine language subroutine whose address is at locations 
259 and 260 (decimal). This address must be supplied by the user. 
Return to the BASIC program can be made through the R3T instruc¬ 
tion. (CALL and R3T are Z-80 instructions similar to the BASIC 
GOSUB and RETURN statements.) 

The GST statement is not in the Sorcerer's BASIC vocabulary. 

I first found out about it from experience with a P3T. It has 
the form: 20 GST A. When executed, the computer makes a quick 
scan of the keyboard. If a key is currently down, it's value 
is given to the variable A. If no key is pressed, the value of 
A is unchanged. The GST statement is also useable with the 
string variables; i.e. GST A$. In the example program, the 
combination of the USR statement and the machine language sub¬ 
routine that accompanies it make the equivalent of a GST state¬ 
ment. When the USR function is executed in our program, program 
control is transferred to the subroutine, which executes as if 
it were a GST statement. The source code in assembler and re¬ 
sulting machine code in hex follow for those interested: 


0000 

CD 

18 

30 

START 

CALL 

K3YBRD 

CALL KEYBOARD INPUT RCUTINS 

0003 

32 

OA 

00 


LD 

(VALUE),A 

STORS VALUE FROM INPUT 

0006 

C9 




R3T 


RSTURN TO BASIC 

0007 




TALUS 

DSPS 

01 

ST0RAG3 SPACS FOR CHARACTER 


4 


4 
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The P0K5 statement is used in the example to move the dot 
around the screen. Each character position on the screen has 
it’s own address ranging from 61568 for the upper left bbxne £jtpS 
634-87 for the lower right corner. The center of the screeh u Ties"" 
halfway between 62495 and 62496; I chose 62496 as the center, for 
the example. With statements such as POKE and PEEK, the address 
must be less than 32768. To POKE into a higher memory location,# 6 
subtract 65536 from the actual address. Thus 61568 becomes -$§1§ 
and so on. r'VlVf 


That's about it for issue #1. Your comments, suggestion^; ,, 
and ideas are more than welcome. I am especially in need of-.V*;: 
printable material. And to continue receiving copies of 
Sorcerer's Apprentice, send another SASE towards the end of„«Iii4srl 
That is the tentative date of release for the next issue, XfitfiV 
then, happy computing! 
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ustiis 

1 REM PROGRAM MOVES DOT (GRAPHIC-5) AROUND SCREEN 

2 REM RUN PROGRAM, HIT KEYS 2,4,6,8 FOR DOWN,IEPT,RIGHT,UP 

3 REM MOVEMENT OP DOT 

5 REM LINES 10-50 LOAD MACINE LANGUAGE SUBROUTINE AT 0-6 HEX 

1 0 DATA 205,24,224,50,7,0,201 

20 FOR 1*0 TO 6 

30 : READ A 

40 : POKE I,A 

50 NEXT I 

54 REM STORE SUBROUTINE ADDRESS 

55 POKE 259,0:P0KE 260,0 

60 L0C*-3040 JREM -3040 IS CORRECTED CENTER OF SCREEN 
70 POKE LOC,132:REM PUT DOT AT CENTER OF SCREEN 
80 AaUSR(O):REM CALL MACHINE LANGUAGE SUBROUTINE 
90 C-VAL(CHR$(PEEK(7))):REM CONVERT FROM HEX TO DECIMAL 
100 ON C/2 GOSUB 200,300,400,500:REM MAKE APPROPRIATE MOVE 
110;GOTO 80:REM INFINITE LOOP PROGRAM, BREAK WITH CONTROL-C 
120 END 

200 REM MOVE DOWN 

210 IF LOC+64 -2049 THEN RETURN :REM RETURN IF MOVE WOULD PUT DOT 

211 REM OFF SCREEN 

220 POKE LOC,32:REM CLEAR OLD LOCATION OF DOT 

221 REM OMIT LINE 220 FOR TRAIL OF DOTS 
230 L0C*L0C+64:REM SET LOC TO NEW VALUE 

240 POKE LOC,132:REM PUT DOT ON SCREEN AT LOC 

250 RETURN 

300 REM MOVE LEFT 

310 IF LOC-1 -3968 THEN RETURN 

320 POKE LOC,32 

330 LOC.LOC-1 

340 POKE LOC,132 

350 RETURN 

400 REM MOVE RIGHT 

410 IF LOC+1 -2049 THEN RETURN 

420 POKE LOC,32 

430 LOC.LOC+1 

440 POKE LOC,132 

450 RETURN 

500. REM MOVE UP 

510- IF LOC-64 THEN RETURN 

520 POKE LOC,32 

530 L0C*LOC-64 

540 POKE LOC,132 

550 RETURN 




